(doctor-type-symbol): Win if auto-fill-function is nil.

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 4bb60d51e76d31a5b2d8af9b9afd5d790d78a46f..b6a6a3a9bcc7a3ef85fbe1005567b80a1e7b2d9e 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1376,8 +1376,9 @@ Hack on previous word, setting global variable OWNER to correct result."
             (not *print-space*))
         (insert word))
        (t (insert ?\  word)))
-  (if (> (current-column) fill-column)
-      (apply auto-fill-function nil))
+  (and auto-fill-function
+       (> (current-column) fill-column)
+       (apply auto-fill-function nil))
   (setq *print-upcase* (string-match "[.?!]$" word)
        *print-space* t))